home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / rbbs_mpl.zip / ANSIED.STB < prev    next >
Text File  |  1992-03-03  |  797b  |  23 lines
  1. '*  Stub for ANSIED v2.44a.  Can be used to remove to code for
  2. '*  ANSIED when linking with code that requires it.  Ideally, a
  3. '*  CONFIG option would be used to disable the use of ANSIED to
  4. '*  make everything transparent to the user.  That way, they
  5. '*  won't select ANSIED, only to have the msg popping up saying
  6. '*  that it's not available.
  7.  
  8. '*  After compiling, just use AEDSTUB.OBJ instead
  9. '*  of ANSIED-3.OBJ on the LINK command line.
  10.  
  11. ' $INCLUDE: 'RBBS-VAR.MOD'
  12.  
  13.       SUB Ansied (T$, S$, L%) STATIC
  14.       Call QuickTPut1 ("Sorry, ANSIEd is not available.")
  15.       IF ZFullScreenEditor Then _
  16.          Call QuickTPut1("Use [T]oggle to disable ANSIED.")
  17.  
  18. '*  Set return code to an undefined value so that line editor
  19. '*  will be used.
  20.  
  21.       ZSubParm = 9
  22.       END SUB
  23.